Compute! Gazette 1984 June/1984-06.d64/revenge cyon_vic

Commodore BASIC | 2022-09-20 | 3KB | 77 lines

1 dimjs(2,2):poke37139,0:dd=37154:pa=37137:pb=37152:v$=" seconds"
2 fori=0to2:forj=0to2:readjs(j,i):next:next:fort=0to10:readb$(t):next
3 co=30720:sc=7680:bg=1:be=7955
4 poke36879,255:print"[147][156]revenge of cyon[146]":print"skill level (1-6) ?";
5 geta$:ifa$=""then5
6 d=val(a$):ifd<1ord>6then4
7 print"[147]":poke36879,8:a=32:a1=32:a2=32
8 fori=0to220:poke38796+i,5:next:poke38775,2:forp=1to20:poke38778+p,5:next:poke38767,6
9 print""bg:j=0:k=0:vb=0:poke7708,46:poke7818,46:poke7738,46:poke7727,81:th=0:s=0
10 poke8076,78:poke8077,99:poke8078,77:poke8101,77:poke8102,100:poke8103,78
11 poke8104,99:poke8083,78:poke8084,99:poke8063,78:poke8064,77:poke8086,103:poke8109,77
12 poke8110,79:poke8089,79:poke8068,78:poke8069,99:poke8070,77:poke8093,80:poke8132,77
13 poke8133,100:poke8134,100:poke8135,100:poke8136,100:poke8137,78:poke8115,103
14 poke8094,78:poke8073,78:poke8074,77:poke8075,78:poke8112,108:poke8113,123
15 poke8152,32:poke8055,88:poke8047,93:poke7782,46:poke7901,46:poke7691,46:poke8025,87
16 poke38745,4
17 poke36878,15:forl=1to5:form=180to235step2:poke36876,m:forn=1to10:next
18 next:poke36876,0:form=1to50:next:next:poke36878,0:print"   "
19 forn=1to2:poke8115-n,46:forq=1to120:next:poke8115-n,32:next:lk=0:ti$="000000"
20 pokebe+vb,a
21 pokedd,127:s3=-((peek(pb)and128)=0):pokedd,255
22 p=peek(pa):s1=-((pand8)=0):s2=((pand16)=0):s0=((pand4)=0)
23 fr=-((pand32)=0):x=s2+s3:y=s0+s1:iflk>8164then60
24 c=c+1:iffr=1thenth=th+1
25 pokelk+po+co,d1:ifa1<>43thenpokelk+po,a1
26 ifbg>6andj<>1thenpokelk+po+30726,d2:ifa2<>43thenpokelk+po+6,a2
27 ifk<>1thenlk=int(rnd(1)*150)+sc
28 poke8025,81:poke36878,0:iffr=1andth<=7thengosub46
29 k=1:po=int(rnd(1)*d)+1:ifth>7thenfr=0
30 poke36878,0:vb=vb+js(x+1,y+1)+(vb>220)*22-(vb<-264)*22
31 a=peek(be+vb):pokebe+vb,43:ifc=2thenlk=lk+22:c=0
32 a1=peek(lk+po):d1=peek(lk+po+co)
33 ifbg>6andj<>1thena2=peek(lk+po+6):d2=peek(lk+po+30726)
34 ifs<>1thenpokelk+po+co,7:pokelk+po,90
35 a$="shots":ifth=1thena$="shot "
36 print"";:xc=be+vb:ifxc=lk+poandfr=1thenprintth;a$:printright$(ti$,2)v$:goto49
37 ifbg>6andj<>1thenpokelk+po+30726,7:pokelk+po+6,90
38 ifbg>6andj<>1andxc=lk+po+6andfr=1thenprintth;a$:printright$(ti$,2)v$:gosub41
39 poke8025,87:ifj=1ands=1thenbg=bg+1:goto47
40 pokesc+qw,32:qw=int(rnd(1)*176)+44:pokesc+qw,46:goto20
41 poke36878,15:forw=1to6:fory=220to254:poke36876,y:next:next:pokelk+po+co+6,1
42 pokelk+po+6,43
43 forz=22tolk-scstep22:g=peek(lk+po-z+6):g1=peek(lk+po-z+co+6):pokelk+po-z+co+6,7
44 pokelk+po-z+6,90:forh=1to70:next:pokelk+po-z+co+6,g1:pokelk+po-z+6,g:next
45 th=0:j=1:return
46 poke36878,15:poke36876,244:forfv=1to70:next:poke36878,0:return
47 ifbg<=11then7
48 goto76
49 ifbg>6andj<>1thenpokelk+po+co+6,7:pokelk+po+6,90
50 s=1:poke36878,15:forl=1to15:form=250to240step-1:poke36876,m:next
51 form=240to250:poke36876,m:next:poke36876,0:next:poke36878,0:pokelk+po+co,1:th=0
52 pokelk+po,43
53 forz=22tolk-scstep22:g=peek(lk+po-z):g1=peek(lk+po-z+co):pokelk+po-z+co,7
54 pokelk+po-z,90:forh=1to70:next:pokelk+po-z+co,g1:pokelk+po-z,g:next
55 poke36876,0
56 ifbg<7thenbg=bg+1:goto7
57 ifj=1ands=1thenbg=bg+1:ifbg<12then7
58 ifj=1ands=1andbg=12then76
59 goto37
60 jh=jh+1:ifjh<3then7
61 poke36876,0:poke36877,220:forl=15to0step-1:poke36878,l:forzn=1to50
62 poke36879,zn:next:next:poke36877,0:poke36878,0
63 print"[147]":forzn=8to255:poke36879,zn:next
64 print"you survived"bg-1:print"attack waves.":gosub69
65 print"play again?(y,n)[146]"
66 geta$:ifa$=""then66
67 ifa$="y"thenrun
68 end
69 print"your rank is:":print""b$(bg-1)".":return
70 data-23,-22,-21,-1,0,1,21,22,23
71 data"private","corporal","[159]sergeant"
72 data"[156]second lieutenant ","[144]first lieutenant"
73 data"captain","[144]major","[156]colonel"
74 data"[156]general","[144]field marshall"
75 data"mr. president"
76 print"[147]you have saved earth  from the alien attack!":goto65